object pesquisacadunico_frame_frm: Tpesquisacadunico_frame_frm
  Left = 0
  Top = 0
  Width = 966
  Height = 216
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Verdana'
  Font.Style = []
  ParentFont = False
  ParentShowHint = False
  ShowHint = True
  TabOrder = 0
  object gbCriterioDomicilio: TGroupBox
    Left = 2
    Top = 1
    Width = 962
    Height = 105
    Caption = 'Crit'#233'rios de &Domic'#237'lio'
    TabOrder = 0
    object lblEndereco: TLabel
      Left = 7
      Top = 36
      Width = 59
      Height = 14
      Caption = 'Endere'#231'o'
    end
    object lblTipoLogradouro: TLabel
      Left = 71
      Top = 17
      Width = 26
      Height = 14
      Caption = '&Tipo'
      FocusControl = cbTipoLogradouro
    end
    object lblTituloLogradouro: TLabel
      Left = 252
      Top = 17
      Width = 34
      Height = 14
      Caption = 'T'#237't&ulo'
      FocusControl = cbTituloLogradouro
    end
    object lblNomeLogradouro: TLabel
      Left = 433
      Top = 17
      Width = 36
      Height = 14
      Caption = '&Nome'
      FocusControl = edtNomeLogradouro
    end
    object lblNumeroLogradouro: TLabel
      Left = 878
      Top = 17
      Width = 49
      Height = 14
      Caption = 'N'#250'&mero'
      FocusControl = edtNumeroLogradouro
    end
    object lblCodigoDomicilio: TLabel
      Left = 71
      Top = 58
      Width = 83
      Height = 14
      Caption = '&C'#243'd.Domic'#237'lio'
      FocusControl = edtCodigoDomicilio
    end
    object cbTipoLogradouro: TComboBox
      Left = 71
      Top = 32
      Width = 178
      Height = 22
      AutoDropDown = True
      Style = csDropDownList
      CharCase = ecUpperCase
      ItemHeight = 14
      MaxLength = 38
      TabOrder = 0
      OnEnter = cbTipoLogradouroEnter
    end
    object cbTituloLogradouro: TComboBox
      Left = 251
      Top = 32
      Width = 178
      Height = 22
      AutoDropDown = True
      Style = csDropDownList
      CharCase = ecUpperCase
      ItemHeight = 14
      MaxLength = 38
      TabOrder = 1
      OnEnter = cbTituloLogradouroEnter
    end
    object edtNomeLogradouro: TEdit
      Left = 432
      Top = 32
      Width = 441
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 76
      TabOrder = 2
      OnEnter = edtNomeLogradouroEnter
    end
    object edtNumeroLogradouro: TEdit
      Left = 877
      Top = 32
      Width = 78
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 16
      TabOrder = 3
      OnEnter = edtNumeroLogradouroEnter
      OnKeyPress = edtNumeroLogradouroKeyPress
    end
    object edtCodigoDomicilio: TEdit
      Left = 71
      Top = 74
      Width = 176
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 11
      TabOrder = 4
      OnEnter = edtCodigoDomicilioEnter
      OnKeyPress = edtNumeroLogradouroKeyPress
    end
    object btnPesquisaDomicilio: TBitBtn
      Left = 850
      Top = 64
      Width = 105
      Height = 34
      Hint = 'Pesquisar pelo Crit'#233'rio de Domic'#237'lio'
      Caption = '&Pesquisar'
      TabOrder = 5
      OnClick = btnPesquisaDomicilioClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
  end
  object gbCriterioIntegrante: TGroupBox
    Left = 2
    Top = 106
    Width = 962
    Height = 105
    Caption = 'Crit'#233'rios de &Integrante'
    TabOrder = 1
    object lblNIS: TLabel
      Left = 71
      Top = 19
      Width = 22
      Height = 14
      Caption = 'NI&S'
      FocusControl = edtNIS
    end
    object lblCPF: TLabel
      Left = 249
      Top = 19
      Width = 24
      Height = 14
      Caption = 'CP&F'
      FocusControl = edtCPF
    end
    object lblTituloEleitoral: TLabel
      Left = 428
      Top = 19
      Width = 89
      Height = 14
      Caption = 'T'#237'tulo &Eleitoral'
      FocusControl = edtTituloEleitoral
    end
    object lblNomePessoa: TLabel
      Left = 72
      Top = 60
      Width = 36
      Height = 14
      Caption = 'N&ome'
      FocusControl = edtNomePessoa
    end
    object btnPesquisaIndividuo: TBitBtn
      Left = 850
      Top = 64
      Width = 105
      Height = 34
      Hint = 'Pesquisar pelo Crit'#233'rio de Indiv'#237'duo'
      Caption = 'Pesquis&ar'
      TabOrder = 0
      OnClick = btnPesquisaIndividuoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
    object edtNIS: TEdit
      Left = 71
      Top = 35
      Width = 176
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 11
      TabOrder = 1
      OnEnter = edtNISEnter
      OnExit = edtNISExit
      OnKeyPress = edtNumeroLogradouroKeyPress
    end
    object edtCPF: TEdit
      Left = 249
      Top = 35
      Width = 176
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 11
      TabOrder = 2
      OnEnter = edtCPFEnter
      OnExit = edtCPFExit
      OnKeyPress = edtNumeroLogradouroKeyPress
    end
    object edtTituloEleitoral: TEdit
      Left = 428
      Top = 35
      Width = 176
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 11
      TabOrder = 3
      OnEnter = edtTituloEleitoralEnter
      OnKeyPress = edtNumeroLogradouroKeyPress
    end
    object edtNomePessoa: TEdit
      Left = 71
      Top = 75
      Width = 772
      Height = 22
      AutoSize = False
      CharCase = ecUpperCase
      MaxLength = 70
      TabOrder = 4
      OnEnter = edtNomePessoaEnter
    end
  end
  object IBQTipoLogradouro: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQTipoLogradouroAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT DISTINCT TIPOLOGRADOURO'
      'FROM BLOCO1'
      
        'WHERE IDBLOCO1 > 0 AND TIPOLOGRADOURO <> '#39#39' AND NOT TIPOLOGRADOU' +
        'RO IS NULL')
    Left = 5
    Top = 178
    object IBQTipoLogradouroTIPOLOGRADOURO: TIBStringField
      FieldName = 'TIPOLOGRADOURO'
      Origin = 'BLOCO1.TIPOLOGRADOURO'
      Size = 38
    end
  end
  object dsTipoLogradouro: TDataSource
    AutoEdit = False
    DataSet = IBQTipoLogradouro
    Left = 37
    Top = 178
  end
  object IBQTituloLogradouro: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQTituloLogradouroAfterOpen
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT DISTINCT TITULOLOGRADOURO'
      'FROM BLOCO1'
      
        'WHERE IDBLOCO1 > 0 AND TITULOLOGRADOURO <> '#39#39' AND NOT TITULOLOGR' +
        'ADOURO IS NULL')
    Left = 69
    Top = 178
    object IBQTituloLogradouroTITULOLOGRADOURO: TIBStringField
      FieldName = 'TITULOLOGRADOURO'
      Origin = 'BLOCO1.TITULOLOGRADOURO'
      Size = 38
    end
  end
  object dsTituloLogradouro: TDataSource
    AutoEdit = False
    DataSet = IBQTituloLogradouro
    Left = 101
    Top = 178
  end
end
